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SQL> cl scr 



SQL> ED 

Wrote file afiedt.buf 

1 DECLARE 

2 V_Name VARCHAR2 (20) := '&GiveName'; 

3 V_Primary CHAR(l) := ' &GivePrimary ' ; 

4 V_Secondary CHAR(l) := ' SGiveSecondary ' ; 

5 V_Graduate CHAR(l) := '&Graduate'; 

6 BEGIN 

7 IF V_P rimary = ' Y' THEN 

8 IF V_Secondary = ' Y' THEN 

9 IF V_Graduate = 'Y' THEN 

10 DBMS_OUTPUT . PUT_LINE ( 'Congratulations 
Graduate . ' ) ; 

11 END IF; 

12 ELSE 

13 DBMS_OUTPUT.PUT_LINE ( 'Sorry! 

Graduate . ' ) ; 

14 END IF; 

15 ELSE 

1 6 DBMS_OUTPUT . PUT_LINE ( ' Oooooops 

Schooling . ' ) ; 

17 END IF; 

18* END; % 

SQL> / + 

Enter value for aivename : ^S pgp te *r 
Enter value for giveprimarl*^. "pg, J 
Enter value for giveseco iCar^,; y 
E nter value for gradua-fej^ 

Congratulations SamxLe 'loJ* Are A Graduate. 




You Are A 



You Are An Under 



ame | | ’ You Are Just 



PL/SQL procedure^succ 

\ 



fsfully completed. 



SQL> ED 
Wrote file 



1 % E 
2 ^ 





o 



3ua***' VARCHAR2 (20) := ' SGiveName ' ; 

3 ■tvp'feimary CHAR(l) := ’ SGivePrimary ’ ; 

.rfjf vrjsecondary CHAR ( 1 ) := ’ SGiveSecondary ' ; 

' f_jV_Graduate CHAR ( 1 ) := ' &Graduate ' ; 

BEGIN 

IF V_P rimary = 'Y' THEN 
IF V_Secondary = 'Y' THEN 

IF V Graduate = 'Y' THEN 
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10 DBMS_OUTPUT.PUT_LINE ( 'Congratulations ' | | V_Name | | ' You Are A 
Graduate . ' ) ; 

11 END IF; 

12 DBMS_OUTPUT . PUT_LINE ( ' Level 3 Closed'); 

13 ELSE 

14 DBMS_OUTPUT.PUT_LINE ( 'Sorry! ' | | V_Name | | ' You Are An Un$ 
Graduate . ' ) ; 

15 END IF; 

16 DBMS_OUTPUT . PUT_LINE ( ' Level 2 Closed'); 

17 ELSE 

18 DBMS_OUTPUT . PUT_LINE ( ' Oooooops ! ' | | V_Name || ' You Are 
Schooling . ' ) ; 

19 END IF; 

20 DBMS_OUTPUT . PUT_LINE ( ' Level 1 Closed'); 

21* END; 

SQL> / 

Enter value for givename : Sample 
Enter value for giveprimary: Y 
Enter value for givesecondary: Y 
Enter value for graduate: Y 
Congratulations Sample You Are A Graduat 
Level 3 Closed 
Level 2 Closed 
Level 1 Closed 




PL/SQL procedure successfully 
SQL> cl scr 



SQL> ED 

Wrote file afiedt. 



Z&" 






1 DECLARE 

2 V_Name VARCHAR2 (^#) := ' &GiveName ' ; 

3 V_P rim ary ^A r ( 1 ) := ' SGivePrimary ' ; 

4 V_S e c AR ( 1 ) := ' SGiveSecondary ' ; 

5 V_Gradrrfc|relCHSR ( 1 ) : = '& Graduate'; 

6 BEGIN 

7 -LF ipPrimary = ' Y' THEN 

8 Afc + 'V t i£econdary = ' Y ' 



9 



Jr^fete.'); 
12 



THEN 

IF V_Graduate = ’Y' THEN 

DBMS_OUTPUT.PUT_LINE ( 'Congratulations ' | | V_Name ! | ' You Are A 

f 

END IF; 



ELSE 

13 DBMS_OUTPUT.PUT_LINE ( 'Sorry! ' | | V_Name | | ' You Are An Under 
Graduate . ' ) ; 

14 END IF; 
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15 ELSE 

1 6 DBMS_OUTPUT . PUT_LINE ( ' Oooooops ! 
Schooling . ' ) ; 

17 END IF; 

18* END; 

SQL> / 

Enter value for givename : Sample 

Enter value for giveprimary: Y 

Enter value for givesecondary: N 

Enter value for graduate: Y 

Sorry! Sample You Are An Under Graduate. 

PL/SQL procedure successfully completed. 

SQL> cl scr 



SQL> / 

Enter value for givename: Sample 
Enter value for giveprimary: y 
Enter value for givesecondary: y 
Enter value for graduate: y 
Oooooops ! Sample You Are Just Schooli 



| |V_Name| ! ' You Are Just 



PL/SQL procedure successfully completed 

-K 4 J+ 1 _ + + 

1 DECLARE i /M J 




SQL> ED 

Wrote file afiedt.buf 



2 V_Name VARCHAR2 (20) %JITCAP ( ' SGiveName ' ) ; 

3 V_Primary CHAR ( 1 ) tiWfER ( ' SGivePrimary ' ) ; 

4 V_Secondary C^R. (l f| i p = UPPER ( ' SGiveSecondary ' ) ; 

5 

6 



V_Graduate CH/iSrtTj| := UPPER (' SGraduate ') ; 
BEGIN 



7 IF V_Prim^r\ = ' Y' THEN 

8 IF V ^eM*y = ' Y' THEN 

9 ^jfWGrlduate = 'Y' THEN 

10 + +r DBMS_OUTPUT.PUT_LINE ( 'Congratulations ' | | V_Name | ! ' You 
Are A+ Gmpilate . ' ) ; 

11 +f + -WEND IF; 

12 jElJE 



rtj+HTR DBMS_OUTPUT.PUT_LINE ( 'Sorry! ' | | V_Name | | ' You Are An Under 



o 



ir^Hj^te . ' ) ; 

" 4^ END IF; 

ELSE 

1 6 DBMS_OUTPUT . PUT_LINE ( ' Oooooops ! 
Schooling . ' ) ; 

17 END IF; 



| |V_Name| | ' You Are Just 
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18* END; 

SQL> / 

Enter value for givename : Sample 
Enter value for giveprimary: y 
Enter value for givesecondary: y 
Enter value for graduate: y 
Congratulations Sample You Are A Graduate. 

PL/SQL procedure successfully completed. 

SQL> cl scr 

SQL> DECLARE 

2 V_Name VARCHAR2 (20) := INITCAP ( ' SGiveName ' ) ; 

3 V_Graduate CHAR(l) := UPPER (' &Graduate ') ; 

4 V_Pas sport CHAR(l) := UPPER (' &Passport ') ; 

5 V_Toef 1 CHAR ( 1 ) := UPPER (' SToefl ') ; 

6 BEGIN 

7 IF V_Graduate = ' Y' AND V_Passport = 

8 DBMS_OUTPUT . PUT_LINE ( ' Congratulation! 

To Apply For US Universities.'); 

9 ELSE 

10 DBMS_OUTPUT.PUT_LINE ( 'Sorry! 

Match. Try Again. ' ) ; 

11 END IF; 

12 END; 

13 / 

Enter value for givename : ^S j 
Enter value for graduate 
Enter value for passport*. ^ 

Enter value for toef 1 

Congratulations Sample Coy Are Eligible To Apply For US Universities . 




THEN 

ame | ! ' You Are Eligible 



Requirements Do Not 



PL/SQL procedure* successfully completed. 

A 




name: Sample 



o 



SQL> / 

Enter value Ifcr 
Enter va lue for graduate : Y 
Enterw^^e. for passport: N 
Enter^^eSW 7 for toef 1 : Y 

Sorrt ! Sample Requirements Do Not Match . Try Again . 
PL/S®. procedure successfully completed. 

X ~ 

\3(gL> cl scr 



SQL> ED 

Wrote file afiedt.buf 
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1 DECLARE 

2 V_Name VARCHAR2 (20) := INITCAP ( ' SGiveName ' ) ; 

3 V_PAN CHAR ( 1 ) := UPPER ( ' SPAN ' ) ; 

4 V_DRLicence CHAR(l) := UPPER (' SDRLicence ') ; 

5 V_VoterCard CHAR(l) := UPPER (' SVoterCard' ) ; 

6 BEGIN 

7 IF V_PAN = 'Y' AND (V_DRLicence = ' Y' OR V_VoterCard = 'Y') 

8 DBMS_OUTPUT.PUT_LINE ( 'Congratulations, ' | | V_Name || ' You Aj 
Eligible For Taking The Bank Loan.'); 

9 ELSE 

10 DBMS_OUTPUT.PUT_LINE ( 'Sorry! 

Match. Try Again. ' ) ; 

11 END IF; 

12* END; 

SQL> / 

Enter value for givename : Sample 
Enter value for pan: Y 
Enter value for drlicence: Y 
Enter value for votercard: Y 
Congratulations, Sample You Are Eligible 



| | V_Name | | ' Requirem#n%et l D 



PL/SQL procedure successfully compl e 4 




►k ing The Bank Loan. 



Sample^ + + 

♦ 



SQL> / 

Enter value for givename: 

Enter value for pan: Y 
Enter value for drlicence: Ni , ++_ 
Enter value for votercar^^ 
Congratulations, 

PL/SQL procedure s 






SQL> 1 4 

Enter value for Avename: Sample 

Enter va 1 u ej 4 f / p#r : Y 
Enter value fo rjdrlicence: N 
Enter value fair vot ercard: N 



Sample ^fju ~%fe Eligible For Taking The Bank Loan. 
esjfhfi *! 1 y completed. 



SorryC 



)le Requirements Do Not Match. Try Again. 



PL/S QL Mocedure successfully completed. 







Sample 



ter value for givename: 

'ter value for pan: N 
nter value for drlicence: Y 
Enter value for votercard: Y 

Sorry! Sample Requirements Do Not Match. Try Again. 
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PL/SQL procedure successfully completed. 
SQL> cl scr 
SQL> ED 

Wrote file afiedt.buf 




is 



DECLARE 

V_Operator VARCHAR2(2) := 'SOperator' 

V_Numberl NUMBER := & Operandl; 

V_Number2 NUMBER := &0perand2; 

BEGIN 

IF V_Operator = '+' THEN 

DBMS_OUTPUT . PUT_LINE ( ' The Sum of ' | |V_N umber ]^| | l \nd 
' | | TO_NUMBER (V_Numberl + V_Number2) ) ; p, 

8 ELSE IF V_Operator = THEN 

9 DBMS_OUTPUT . PUT_LINE ( ' The Difference of ' l1 % Nltmberl | | 

| | V_Number2 | | ' is : ' | | TO_NUMBER ( V_Numberl^-^^^Sber2 ) ) ; 

10 ELSE IF V_Operator = THEN + + + + + + 

11 DBMS_OUTPUT . PUT_LINE ( ' The ProducV.df ' I I V_Numberl | | 

| | V_Number2 | | ' is : ' | | TO_NUMBER (V_Nufoo|rff f 4 V_Number2 ) ) ; 

12 ELSE IF V_Operator ' "'THEN 

13 DBMS_OUTPUT.PUT_LINE ( ^e Quotient of ' | | V_N umber 1 | | ' 

| | V_Number2 | | ' is : ' | | TO_ItoJfi^R (V_Numberl / V_Number2 ) ) ; 

ELSE IF ^Operator = ’**’ THEN 

DBMS_(fUT^^FUT_LINE ( ' The Power of ' | |V_Numberl| | 




/_Number2 | | 



and 



and 



| | V_Number2 | | 



is 



| Uff tolMEER (V_Numberl 






% 



V_Number2 ) ) 




4 END 

V 

for operator 
for operandl 
Ve for operand2 
of 25 and 45 is 



\BMS_OUTPUT . PUT_LINE ( ' Invalid Operator. 
end 

WJ;nu : 



IF; 



IF; 



+ 

25 

45 

70 



procedure successfully completed. 



Enter value for operator: - 
Enter value for operandl: 45 
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Enter value for operand.2 : 25 
The Difference of 45 and 25 is 



20 



PL/SQL procedure successfully completed. 
SQL> ED 

Wrote file afiedt.buf 



is 



DECLARE 

V_Operator VARCHAR2(2) := 'SOperator'; 

V_Numberl NUMBER := SOperandl; 

V_Number2 NUMBER := &Operand2; 

BEGIN 

IF V_Operator = '+' THEN 
DBMS_OUTPUT . PUT_LINE ( ' The Sum of ' | | V_NumberlJ | 1 Vd 
' | | TO_NUMBER ( V_Numberl + V_Number2)); % f, . , , 

THEN % 






A 



_Number2 | | ' 



ELSIF V_Operator = 



9 DBMS_OUTPUT . PUT_LINE ( ' The Difference of '1 [%_Nbmberl | | ' and 






' | | V_Number2 | | ' is : ' | | TO_NUMBER ( V_Numberl+ + - T\|rt^Ttber2 ) ) ; 



ELSIF V_Operator = 



THEN 






DBMS_OUTPUT . PUT_LINE ( ' The Produced* ' I I V_Numberl | | ' and 



10 

11 u 1 1 kj j. . i. -l uxlmu \ me j. 

' | | V_Number2 | | ' is : ' | | TO_NUMBER (V_Nu|b%ff 4 V_Number2 ) ) ; 

12 

13 
and 

14 

15 
and 

16 
17 



ELSIF V_Operator = '/' Tff&NvQ 

DBMS_OUTPUT.PUT_LINE ( hVe Quotient of ' | | V_N umber 1 | | ' 

| | V_Number2 | | ' is : ' | | TO_fSM§l|R ( V_Numberl / V_Number2 ) ) ; 

ELSIF V_Operatar% **** ' THEN 

DBMS_<fUmpf^FUT_LINE ( ' The Power of ' | | V_N umber 1 | | ' 
| | V_Number2 | | ' is : I | U^SnU>BER (V_N umberl * * V_Number2) ) ; 

D9fc%TPUT . PUT_LINE ( ' Invalid Operator. . . Please 



Check Your Self. . . ! ') ; 

18 f fey IF; 

19* END; lxh rH | 

SQL> / 4 +-M* 

Enter value f o^ ober 
Enter valuej/fT 
Enter value f' 

The Sum of 25 

V O'* 

PL/SQ£ -^r®i«fedure successfully completed. 



Iterator : 


+ 


opferandl : 


25 


opOTand2 : 


45 


d 45 is : 


70 




s^V 4 - 

^nfey value for operator: - 
j. 1 1 1 i.m Snter value for operandl : 45 
'tenter value for operand2 : 25 
~\i , , pThe Difference of 45 and 25 is 



20 



PL/SQL procedure successfully completed. 
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SQL> cl scr 
SQL> DECLARE 

2 V_Day VARCHAR2 ( 3 ) := TO_CHAR (TO_DATE ( ' &YourDate ' , ' DD- 

3 BEGIN 

IF V_Day = 'SAT' THEN 

DBMS_OUTPUT . PUT_LINE ( ' Enjoy The Weekend'); 

ELSE 

IF V_Day = 'SUN' THEN 

DBMS_OUTPUT . PUT_LINE ( ' Enjoy The Weekend'); 

ELSE 

DBMS_OUTPUT . PUT_LINE ( ' Have a Nice Day'); 

END IF; 

12 END IF; 

13 END; 

14 / 

Enter value for yourdate: 01 -NOV- 14 
Enjoy The Weekend 



10 

11 



PL/SQL procedure si 




PL/SQL procedure successfully completed 
SQL> / 

Enter value for yourdate: 02-NOV-14 
Enjoy The Weekend 

PL/SQL procedure successfull 

SQL> / 

Enter value for yourdate 
Have a Nice Day 



:ully completed. 



SQL> DECLARE 

2 V Day ( 3 ) := TO_CHAR (TO_DATE ( ' SYourDate ' , ' DD-MON-YY ' ) , ' DY ' ) ; 

3 BEGIN + +fl 4 

4 IF Vj^Ly = ' SAT ' THEN 

5 + DBMS_OUTPUT.PUT_LINE ( 'Enjoy The Weekend'); 

6 V_Day = 'SUN' THEN 

7 i + -* DBMS_OUTPUT . PUT_L INE ( 'Enjoy The Weekend'); 

*ELSE 

DBMS_OUTPUT. PUT_L INE ( 'Have a Nice Day'); 

END IF; 

END; 

12 / 

Enter value for yourdate: 01 -NOV- 14 
Enjoy The Weekend 
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PL/SQL procedure successfully completed. 
SQL> / 

Enter value for yourdate: 02-NOV-14 
Enjoy The Weekend 

PL/SQL procedure successfully completed. 
SQL> / 

Enter value for yourdate: 03-NOV-14 
Have a Nice Day 

PL/SQL procedure successfully completed. 



0 













f, ' ++ - 



SQL> DECLARE 

2 V_Day VARCHAR2 ( 3 ) := TO_CHAR (TO_DATE ( ' &YourqA%e\ ' DD-MON-YY ' ) , ' DY ' ) ; 

3 BEGIN , % ^ 

4 IF V_Day = 'SAT' OR V_Day = ' SUN '^THENV ^ 

5 DBMS_OUTPUT . PUT_LINE ( 'Enjoy Ttf% + ll|4^nd ' ) ; 

6 ELSE _ r ij_A t + + + 4 

7 DBMS_OUTPUT . PUT_LINE ( ' Haveta Day ' ) ; 

8 END IF; +t+J " 

9 END ; + +. 

10 7 

Enter value for yourdate: Ol-NOI^-JIfl ▼ 

Enjoy The Weekend 

PL/SQL procedure success^ 






sf^3)^.y ’Completed. 

~ 



SQL> 02 -NOV- 14 -rt+ , + J-C* 

SP2-0042 : unknown ^mmaj d f *" 0 2 -NOV- 14" - rest of line ignored . 
SQL> / +rrt rH | 

Enter value for jourd^fe : 02 -NOV- 14 
Enjoy The Weeks 



PL/SQL proce 



rccessfully completed. 



SQL> V + 

Enter^^aJW'for yourdate: 03-NOV-14 
Haveia trace Day 

; 

TL/S® procedure successfully completed. 

vv 

, jS<QL> DECLARE 

J* 2 V_Day VARCHAR2 ( 3 ) := TO_CHAR (TO_DATE (' SYourDate ',' DD-MON-YY '),' DY ') ; 

3 BEGIN 

4 IF V_Day IN ('SAT', 'SUN') THEN 
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5 DBMS_OUTPUT . PUT_L INE ( 'Enjoy The Weekend') 

6 ELSE 

7 DBMS_OUTPUT. PUT_L INE ( 'Have a Nice Day'); 

8 END IF; 

9 END; 

10 / 

Enter value for yourdate: 01 -NOV- 14 
Enjoy The Weekend 

PL/SQL procedure successfully completed. 

SQL> / 

Enter value for yourdate: 02-NOV-14 
Enjoy The Weekend 

PL/SQL procedure successfully completed. 

SQL> / 

Enter value for yourdate: 03-NOV-14 
Have a Nice Day 

PL/SQL procedure successfully complete^. e; 

SQL> DECLARE + +- 

2 V_Day VARCHAR2 ( 3 ) := TO_CHA$ <|f§L DATE ( ' & YourDate ' , ' DD-MON-YY ' ) , ' DY ' ) ; 

3 BEGIN ^ 

4 IF V_Day NOT IN ( ' SAf ' ) THEN 

5 DBMS_OUTPUT . PQT (jffiave a Nice Day' ) ; 




ELSE 



DBMS_OUTPUT ,1N|t^\[NE ( 'Enjoy The Weekend' ) ; 




8 END IF; 

9 END; 

10 / 

Enter value for ^ourdfrfe : 01 -NOV- 14 
Enjoy The Weeks 

PL/SQL proc^mrel successfully completed. 



cs 



SQL> -/ + 

Enter^^afi*#^ for yourdate : 02 -NOV- 14 
Enjow Th® Weekend 

PL/S®i procedure successfully completed. 



\pOL> / 

nter value for yourdate: 03-NOV-14 
Have a Nice Day 
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PL/SQL procedure successfully completed. 




SQL> cl scr 
SQL> ED 

Wrote file afiedt.buf 

1 DECLARE 

2 V_Sal NUMBER (8, 2) := 25000; 

3 V_Name VARCHAR2 (30) := INITCAP ( ' SGiveName ' ) ; 

4 V_Result VARCHAR2 (400) ; 

5 V_Gender CHAR(l) := UPPER ( ' SGiveGender ' ) ; 

6 VJMarital CHAR(l) := UPPER ( ' SGiveMaritalStatus ' ) ; 

7 V_Country VARCHAR2 (30) := UPPER ( ' SGiveCountry ' ) p 

8 BEGIN ,/ + ++ 

9 DBMS_OUTPUT . PUT_LINE ( ' The Country you Gave i s % I, I f v_ C ount r y ) ; 

IF V_Marital IN('M','S') THEN % 

IF V_Gender = 'M' THEN 

V_Result : = ' Mr . ' | | INITCAP (V_Name) | | fY^t^ ^Salary as per your 
country is ' ; 

13 ELSIF V_Gender = ' F' THEN 

14 IF VJMarital = 

15 V_Result := 'Miss. '"^hj^NPTCAP (V_Name) | | 

per your country is'; 

16 ELSE 

17 V_Result 

per your country is'; 

18 END IF; + +i+\, ^ 

19 ELSE + 

20 DBMS_OUTPUT . PUT_LInC( 'N jrry ! ' | | INITCAP (V_Name) | |' ! the gender you 
gave cannot be processes ^PfLese Try Again.'); 

21 END IF; 4^^CF 

‘lNj' \ ndia' , ' : 



10 

11 

12 



I | INITCAP (V_Name) | | +. ^Yrftte^Salary as 

VVC? 

EN 

= 'S' TiAn^t ,, 4 
'Miss . >mMAP 






;= n INITCAP ( V_Name) | | ' 



Your Salary as 



Your Salary as 



22 



IF V_Country Wjl 



'BHUTAN') THEN 



23 DBMS JDUTPUTi. PUTJfflNE ( VJResult | | ' : INR - 

' | | TO_CHAR (V S^L J10, 99, 999. 99')); 

2 4 ELSIF^^^^rthry = 'MAURITIUS ' THEN 

25 DBMS_OWPy .I%T_LINE (V_Result | | ' : MUR - 

' | ! TOJCHAR (V_\tt, ' 0, 99, 999.99')); 

26 VjCountry = 'NEPALESE' THEN 

27 ^^^^BUTPUT.PUT_LINE (V_Result | |' : NPR - 

' | | T(Tc|te(V_Sal, '0,99, 999. 99')); 

0 |tt]- i X t«#siF V_Country = 'PAKISTAN' THEN 

if 2 C_J ~DBMS_OUTPUT . PUT_LINE (V_Result | | ' : PKR - 

!U I TCJCHAR (V_Sal, ' 0, 99, 999.99') ) ; 

70 ELSIF V_Country = ' SEYCHELLES ' THEN 
31 DBMS_OUTPUT . PUT_LINE (V_Result | | ' : SCR - 

' | | TO_CHAR(V_Sal, ' 0, 99, 999.99')); 

32 ELSIF VjCountry = 'SRI LANKAN' THEN 
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33 DBMS_OUTPUT . PUT_LINE ( V_Result | | ' : LKR - 
' | | TO_CHAR (V_Sal, ' 0, 99, 999.99')); 

34 ELSIF V_Country = 'INDONESIA' THEN 

35 DBMS_OUTPUT . PUT_LINE ( V_Result | | ' : LKR - 
' | | TO_CHAR(V_Sal, ' 0, 99, 999.99')); 

36 ELSE 

37 DBMS_OUTPUT . PUT_LINE ( ' Sorry ! ' | [ INITCAP (V_Name) || ' ! Your Co; 
Does not Exist ... Plese Try Again.'); 

38 END IF; 

39 ELSE 

40 DBMS_OUTPUT . PUT_LINE ( ' Sorry !' | | INITCAP (V_Name) | | ' ! 

Status Cannot be confirmed properly.') 

41 END IF; 

42* END; 

SQL> / 

Enter value for givename : Sample 
Enter value for givegender: M 
Enter value for givemaritalstatus : S 
Enter value for givecountry: India 

The Country you Gave is : INDIA 

Mr. Sample, Your Salary as per your coun 

PL/SQL procedure successfully compl e 

SQL> / 

Enter value for givename: Sample 




INR - 0, 25, 000 .00 



Enter value for givegender : ft = : 



Enter value for cri vema r i tal ad mi : 



M 

an 



cs 



p 

Enter value for givecount rjfe P^klst 
The Country you Gave is ft^PAkj STAN 
Mr. Sample, Your Salar your country is : 

PL/SQL procedure s^^^^ully completed. 

i ++ 

SQL> / 

Enter valuej/fJ^ giSyename : Sample 

Enter value fo r\gi^egender : F 

Enter value fcAr givemaritalstatus : S 

EnteryvSLUre^for givecountry : Sri Lankan 

The Cg4*juii^' you Gave is : SRI LANKAN 

MissC Sample, Your Salary as per your country is 

PL/S®i procedure successfully completed. 

%^L> / 

nter value for givename: Sample 
Enter value for givegender: F 
Enter value for givemaritalstatus : M 



PKR - 0, 25, 000 .00 



LKR - 0,25, 000 . 00 
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Enter value for givecountry: Nepalese 

The Country you Gave is : NEPALESE 

Mrs. Sample, Your Salary as per your country is 

PL/SQL procedure successfully completed. 

SQL> ED 

Wrote file afiedt.buf 



NPR - 0, 25, 000 .00 



DECLARE 

V_Sal NUMBER (8, 2) := 25000; 

V_Name VARCHAR2 (30) := INITCAP ( ' SGiveName ' ) ; 

V_Gender CHAR(l) := UPPER ( ' SGiveGender ' ) ; 
VJMarital CHAR ( 1 ) := UPPER ( ' SGiveMaritalStatus ' )►; 



' L, 



V_Country VARCHAR2 (30) := UPPER (' SGiveCountrv') i 




BEGIN 



\ i 



% 



8 DBMS_OUTPUT . PUT_LINE ( ' The Country you Gave V_Country) ; 



9 IF V_Country IN (' INDIA BHUTAN ' ) THEN 



10 

11 

12 






% N 



IF V_Marital IN('M','S') THEN 
IF V_Gender = 'M' THEN 

DBMS_OUTPUT.PUT_LLMtJ\A. ' I I INITCAP (V_Name) || ' , 






Your Salary as per your country is : iSr W 

' | |TO_CHAR(V_Sal, ' 0, 99, 999. 99' ) ) ; Tj -h-£|. 

13 ELSIF V_Gender =\f ' THEN 

14 IF ^Jteital = 'S' THEN 

15 DBM^_W»UT.PUT_LINE ( 'Miss. 

' | | INITCAP (V_Name) II', Your as per your country is 

' | | TO_CHAR ( V_S al ,'0, 99, 99^. 

16 
17 



INR - 






< > 



' | | INITCAP (V_Name) | | ', -rf^uJuS alary as per your country is : INR - 

' | | TO_CHAR (V_Sal, ' <£ l 99.(9F. 99 ' ) ) ; 

18 : ki+ rH ± END IF; 

19 4 *^lse 

20 ^ \ DBMS_OUTPUT . PUT_LINE ( ' Sorry 

! ' | | TNTTCAP|-fv toa rM-^ | | ' ! the gender you gave cannot be processed. . .Plese 
Try Again. ' tisj: } 4 

21 + +t END IF; 

22 



\BMS_OUTPUT . PUT_LINE ( ' Mrs . 



+ + O' else 

23 %^ChAbMS_OUTPUT.PUT_LINE ( 'S orry ! ' | | INITCAP (V_Name) | | ' ! Your 
Marital 7st atus Cannot be confirmed properly.'); 



r \ f'M'A-. "f ,, Jy 

,A 



END IF; 



o 



*2 | l+ ELSIF V_Country = 'MAURITIUS' THEN 
"6^ IF V_Marital IN('M','S') THEN 

IF V_Gender = 'M' THEN 
28 DBMS_OUTPUT.PUT_LINE ( 'Mr. ' | | INITCAP (V_Name) | | 

Your Salary as per your country is : MUR - 
' | | TO_CHAR(V_Sal, ' 0, 99, 999.99')); 
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MUR - 



29 ELSIF V_Gender = ' F' THEN 

30 IF VJMarital = 'S' THEN 

31 DBMS_OUTPUT . PUT_LINE ( ' Miss . 

' | | INITCAP (V_Name) II', Your Salary as per your country is 
' | | TO_CHAR (V_Sal, ' 0, 99, 999.99 ' ) ) ; 

32 ELSE 

33 DBMS_OUTPUT . PUT_LINE ( ' Mrs . 

' | | INITCAP (V_Name) II', Your Salary as per your country is 

' | | TO_CHAR (V_Sal, ' 0, 99, 999.99 ' ) ) ; 

34 END IF; 

35 ELSE 

36 DBMS_OUTPUT . PUT_LINE ( ' Sorry ! ' | | INITCAa(^#g? 
gender you gave cannot be processed. . .Plese Try Agai 

37 END IF; 

3 8 ELSE j. '+ + 

39 DBMS_OUTPUT . PUT_LINE ( ' Sorry ! ' | | INITCa X^I Na^ 

Marital Status Cannot be confirmed properly. '); 

40 END IF; _X. > 

41 

42 

43 _____ 

44 DBMS_OUTPUT . PUT^J^g^Mr . ' | | INITCAP (V_Name) | ] ' , 




:) | ] ' ! Your 



ELSIF V_Co untry = 'NEPALESE ' THEN + + 

IF V_Marital IN('M','S') THEN + + + + + + p 



V 



IF V_Gender = 'M' THEN , 1? u t + + f + 4 



Your Salary as per your country is - 1 1 

' | | TO_CHAR(V_Sal, ' 0, 99, 999.99')); + +- 

4 5 ELSIF V_C\|9l^ = ' F ' THEN 

4 6 IFJiCfeAtal = 'S' THEN 

47 ^B K^ jOTPUT . PUT LINE ('Miss. 

' | I INITCAP (V_Name) II', Your . as per your country is : NPR - 
' | | TO_CHAR (V_Sal, '0,99, 

48 *'^LSE 

4 9 -jp- + 4-C*DBMS_OUTPUT.PUT_LINE ( 'Mrs . 

' | | INITCAP (V_Name) jf' ,_ f of 1 ?: Salary as per your country is : NPR - 
' | | TO_CHAR (V_Sal, ' . 99 ' ) ) ; 

50 a +4X END IF; 

51 ^ \;lse 

52 4 f M J H _^fl!BMS_OUTPUT.PUT_LINE ( 'Sorry ! ' | | INITCAP (V_Name) | | ' ! the 
gender you gfepeljcaifnot be processed . . . Plese Try Again . ' ) ; 

53 + +F END IF; 

54 + + p* .ELSE 



55 



++ . +hA)BMS_OUTPUT.PUT_LINE ( 'Sorry ! ' | | INITCAP (V_Name) | | ' ! Your 






Mari atus Cannot be confirmed properly.'); 



END IF; 



o 



'5f d'ELSIF V_Country = 'PAKISTAN' THEN 
"8^ IF V_Marital IN('M','S') THEN 

IF V_Gender = 'M' THEN 
60 DBMS_OUTPUT . PUT_LINE ( ' Mr . ' | | INITCAP (V_Name) | | 

Your Salary as per your country is : PKR - 
' | | TO_CHAR(V_Sal, ' 0, 99, 999.99')); 
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PKR - 



61 ELSIF V_Gender = ' F' THEN 

62 IF V_Marital = 'S' THEN 

63 DBMS_OUTPUT . PUT_LINE ( ' Miss . 

' | | INITCAP (V_Name) II', Your Salary as per your country is 
' | | TO_CHAR (V_Sal, ' 0, 99, 999.99 ' ) ) ; 

64 ELSE 

65 DBMS_OUTPUT . PUT_LINE ( ' Mrs . 

' | | INITCAP (V_Name) II', Your Salary as per your country is 

' | | TO_CHAR (V_Sal, ' 0, 99, 999.99 ' ) ) ; 

66 END IF; 

67 ELSE 

68 DBMS_OUTPUT . PUT_LINE ( ' Sorry ! ' | | INITCAft 
gender you gave cannot be processed. . .Plese Try Agair 

69 END IF; 

7 0 ELSE | '+ + 

71 DBMS_OUTPUT . PUT_LINE ( ' Sorry ! ' I I INITCAp lM Na^ e) II'! Your 

Marital Status Cannot be confirmed properly. '); 

72 END IF; ^ 

73 ELSIF V Country = ' SEYCHELLES ' THEN %. 

74 




ELSIF V_Country = 'SEYCHELLES' THEN -k f J-'-k 
IF V_Marital IN('M','S') THEN + + + + ++ 

75 IF V_Gender = 'M' THEN 




+ + ^LSE 



76 DBMS_OUTPUT . PUtVl ^JEJAMr . ' | | INITCAP (V_Name) | ] ' , 

Your Salary as per your country is 1 1 

' | | TO_CHAR(V_Sal, ' 0, 99, 999.99')); + +. 

7 7 ELSIF V_GW|0^ = ' F ' THEN 

78 IF _K3|ari'tal = 'S' THEN 

7 9 tffi ^^W TPUT . PUT LINE ('Miss. 

' | | INITCAP (V_Name) II', Your .^a iprr as per your country is 
' | | TO_CHAR (V_Sal, '0,9 9, 

80 
81 

' | | INITCAP (V_Name) 

' | | TO_CHAR (V_Sal, ' 

82 4 

8 3 ^ "ELSE 

8 4 f^ lii^ -feMS OUTPUT .PUT LTNE f ' Sorry ! ' | | INITCAP (V_Name) | | ' ! the 

gender you g^ejcamiot be processed. . .Plese Try Again. ') ; 

8 5 + +r END IF; 

86 + + J’jJ' ELSE 

87 %^ChAbMS_OUTPUT.PUT_LINE ( 'S orry ! ' | | INITCAP (V_Name) | | ' ! Your 
Marital ISt atus Cannot be confirmed properly.'); 



+kdDBMS_OUTPUT.PUT_LINE ( 'Mrs . 



y>99.99')) ; 



Salary as per your country is 

5 ' ) ) ; 

END IF; 



SCR - 



SCR - 






END IF; 



o 



' 8 | j+ ELSIF V_Country = 'SRI LANKAN' THEN 
"0*^ IF V_Marital IN('M','S') THEN 

IF V_Gender = 'M' THEN 
92 DBMS_OUTPUT . PUT_LINE ( ' Mr . ' | | INITCAP (V_Name) | | 

Your Salary as per your country is : LKR - 
' | | TO_CHAR(V_Sal, ' 0, 99, 999.99')); 
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LKR - 



93 ELSIF V_Gender = ' F' THEN 

94 IF V_Marital = 'S' THEN 

95 DBMS_OUTPUT . PUT_LINE ( ' Miss . 

' | | INITCAP (V_Name) II', Your Salary as per your country is 
' | | TO_CHAR (V_Sal, ' 0, 99, 999.99 ' ) ) ; 

96 ELSE 

97 DBMS_OUTPUT . PUT_LINE ( ' Mrs . 

' | | INITCAP (V_Name) II', Your Salary as per your country is 

' | | TO_CHAR (V_Sal, ' 0, 99, 999.99 ' ) ) ; 

98 END IF; 

99 ELSE 

100 DBMS_OUTPUT . PUT_LINE ( ' Sorry ! ' | | INITCAa 
gender you gave cannot be processed. . .Plese Try Agair 

101 END IF; 

102 ELSE j V 

103 DBMS_OUTPUT . PUT_LINE ( ' Sorry ! ' I I INITCA^ tijjSTah 

Marital Status Cannot be confirmed properly. '); tk 

1 0 4 END IF; 

105 

106 

107 ----- r 9 % 

108 DBMS_OUTPUT . PuAluEj|Hr . ' | | INITCAP (V_Name) | ] ' , 




;) | ] ' ! Your 



ELSIF V_Co untry = ' INDONESIA' THEN + + 

IF V_Marital IN('M','S') THEN + + + + + + p 



IF V_Gender = 'M' THEN , 1? u t + + f + 4 



O' 



Your Salary as per your country is - 1 1 ^ 

' | | TO_CHAR(V_Sal, ' 0, 99, 999.99')); + +- 

109 ELSIF V_GW|0^ = ' F ' THEN 

110 IF _K3|ari'tal = 'S' THEN 

HI ^ffi C^ SOTPUT . PUT LINE ('Miss. 

' | | INITCAP (V_Name) II', Your , ^a t^rar as per your country is : LKR - 
' | | TO_CHAR (V_Sal, ' 0, 99, 

112 *'^LSE 

113 -jp- + 4_C*DBMS_OUTPUT.PUT_LINE ( 'Mrs . 

' | | INITCAP (V_Name) ' , lo rf r Salary as per your country is : LKR - 
' | | TO_CHAR (V_Sal, ' 5pf^j999 . 99 ' ) ) ; 

114 i Jr END IF; 

115 _ ’ ELSE 

116 4 f M J H _^fl!BMS_OUTPUT.PUT_LINE ( 'Sorry ! ' | | INITCAP (V_Name) | | ' ! the 
gender you gtfvelcamot be processed . . . Plese Try Again . ' ) ; 

117 END IF; 

H 8 + + p' ELSE 

119 ++pChAbMS_OUTPUT.PUT_LINE (' Sorry ! ' | | INITCAP (V_Name) | | ' ! Your 
Marital iSt atus Cannot be confirmed properly.'); 

END IF; 

2 % ? ~ELSE 

° z* DBMS_OUTPUT . PUT_LINE ( ' Sorry ! ' | | INITCAP (V_Name) | | ' ! Your Country 
c?es not Exist . . . Plese Try Again . ' ) ; 

23 END IF; 

124* END; 

SQL> / 
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Enter value for givename : Sample 
Enter value for givegender: M 
Enter value for givemaritalstatus : S 
Enter value for givecountry: India 

The Country you Gave is : INDIA 

Mr. Sample, Your Salary as per your country is 
PL/SQL procedure successfully completed. 



SQL> / 

Enter value for givename: Sample 

Enter value for givegender: M 

Enter value for givemaritalstatus : M 

Enter value for givecountry: Pakistan 

The Country you Gave is : PAKISTAN 

Mr. Sample, Your Salary as per your country 

PL/SQL procedure successfully completed. 



0, 25, 000.1 



SQL> / 

Enter value 
Enter value 
Enter value for 
Enter value for 
The Country you 



for givename: Sample 
for givegender: F 

givemaritalstatus 
givecountry: Sri 
Gave is : SRI LAMrfK. 




0, 25, 000.00 



Miss. Sample, Your Salary as pea.^ 11 ^ country 
/ 

PL/SQL procedure successf i^l l^^ ora^Leted . 



is 



LKR - 0,25, 000 . 00 



SQL> / 

Enter value 
Enter value 
Enter value 
Enter value 






for 

for 

for 

for 



givena^. 




gi # gen l _ 

gi“\^aaLtal status : M 
aiveG^ffntry : Nepalese 
The Country voy^^ve is : NEPALESE 
Mrs. Sample/ alary as per your country is 

* 

PL/SQL pmcediNl successfully completed. 



SQL> 



NPR - 0,25, 000 . 00 



Q 







SkyEss Techno Solutions Pvt. Ltd. 

Flat No. 201, II Floor, Abhilash Towers, BK Guda, Hyderabad - 500 038 
Ph No. +9140 23710047, 64640047, Mobile: 9985798869 
Contact For Courses And Training in 

Oracle Developer Suite 10g(D2K), Oracle Apps R12, Live Projects in SQL and PL/SQL, Data 

Modeling, Linux/Unix 

Follow Me: https://www.facebook.com/satishkumar.yellanki 



